(DEFUN C:SHOWLISP ( / cllsp_file this_line lisp_file found_lisp_file)
  (IF (SETQ cllsp_file (FINDFILE "customload.lsp"))
    (PROGN
      (IF (SETQ cllsp_open (OPEN cllsp_file "r"))
        (PROGN
          (IF ustr NIL (LOAD "ustr" "\nFile USTR.LSP not loaded! "))
          (SETQ the_function (ustr 1 "Enter the command name to find the source lisp file for" (IF the_function the_function "")NIL))
          (WHILE (SETQ this_line (READ-LINE cllsp_open))
            (IF (WCMATCH (STRCASE this_line) (STRCAT "*(custload*"))
              (PROGN
                (WHILE (WCMATCH (SUBSTR this_line 1 1) " ")
                  (SETQ this_line (SUBSTR this_line 2))
                )
                (SETQ lisp_file (STRCAT (CADR (DOS_STRTOKENS this_line " ")) ".lsp"))
                (SETQ found_lisp_file (FINDFILE lisp_file))
              )
              (PRINC this_line)
            )
            (PRINC "\n")
            (PRINC)
            (SETQ save_this_line this_line)
            (IF (WCMATCH (STRCASE this_line) (STRCAT "*\"" (STRCASE the_function) "\"*"))
              (IF found_lisp_file
                (PROGN
                  (PRINC (STRCAT "\nThe lisp file defining " the_function " is: " found_lisp_file ". "))
                  (PRINC)
                )
                (IF lisp_file
                  (PROGN
                    (PRINC (STRCAT "\nThe lisp file defining " the_function " is: " lisp_file " which could not be found in the AutoCAD Support File Search Path. "))
                    (PRINC)
                  )
                )
              )
            )
          )
          (CLOSE cllsp_open)
        )
        (PROGN
          (PRINC "\nCould not open CUSTOMLOAD.LSP. ")
          (PRINC)
        )
      )
    )
    (PROGN
      (PRINC "\nCould not find CUSTOMLOAD.LSP which is required. ")
      (PRINC)
    )
  )
  (PRINC)
)